
100 ! COLLIDE SPRITES
110 CALL CLEAR ! SPRITES
120 CALL SPRITE(#1,65,2,9,99,20,22,#2,66,2,64,99,30,25,#3,67,2,9,99,-20,-25)
130 CALL COLLIDE(#1,#2,8,R1,C1,#1,#3,8,R2,C2,#2,#3,8,R3,C3)
140 IF R1+C1+R2+C2+R3+C3 THEN 150 ELSE 130
150 PRINT "#1";R1;C1;"#2";R2;C2;"#3";R3;C3
160 R1,C1,R2,C2,R3,C3=0
170 GOTO 130
